home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / HyperXCmd.p < prev    next >
Encoding:
Text File  |  1989-10-13  |  3.1 KB  |  97 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Thursday, October 27, 1988 at 10:56 PM
  3.     HyperXCmd.p
  4.     Definition file for HyperCard XCMDs and XFCNs in Pascal.
  5.  
  6.     Copyright Apple Computer, Inc.    1987-1988
  7.     All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT HyperXCmd;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingHyperXCmd}
  21. {$SETC UsingHyperXCmd := 1}
  22.  
  23. {$I+}
  24. {$SETC HyperXCmdIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingTypes}
  27. {$I $$Shell(PInterfaces)Types.p}
  28. {$ENDC}
  29. {$SETC UsingIncludes := HyperXCmdIncludes}
  30.  
  31. CONST
  32.  
  33. { result codes }
  34.  
  35. xresSucc = 0;
  36. xresFail = 1;
  37. xresNotImp = 2;
  38.  
  39.  
  40. TYPE
  41.  
  42.  
  43. XCmdPtr = ^XCmdBlock;
  44. XCmdBlock = RECORD
  45.     paramCount: INTEGER;
  46.     params: ARRAY [1..16] OF Handle;
  47.     returnValue: Handle;
  48.     passFlag: BOOLEAN;
  49.     entryPoint: ProcPtr;    {to call back to HyperCard}
  50.     request: INTEGER;
  51.     result: INTEGER;
  52.     inArgs: ARRAY [1..8] OF LONGINT;
  53.     outArgs: ARRAY [1..4] OF LONGINT;
  54.     END;
  55.  
  56.  
  57.  
  58. PROCEDURE SendCardMessage(paramPtr: XCmdPtr;msg: Str255);
  59. PROCEDURE SendHCMessage(paramPtr: XCmdPtr;msg: Str255);
  60. FUNCTION GetGlobal(paramPtr: XCmdPtr;globName: Str255): Handle;
  61. PROCEDURE SetGlobal(paramPtr: XCmdPtr;globName: Str255;globValue: Handle);
  62. FUNCTION GetFieldByID(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldID: INTEGER): Handle;
  63. FUNCTION GetFieldByName(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldName: Str255): Handle;
  64. FUNCTION GetFieldByNum(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldNum: INTEGER): Handle;
  65. PROCEDURE SetFieldByID(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldID: INTEGER;
  66.     fieldVal: Handle);
  67. PROCEDURE SetFieldByName(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldName: Str255;
  68.     fieldVal: Handle);
  69. PROCEDURE SetFieldByNum(paramPtr: XCmdPtr;cardFieldFlag: BOOLEAN;fieldNum: INTEGER;
  70.     fieldVal: Handle);
  71. PROCEDURE BoolToStr(paramPtr: XCmdPtr;bool: BOOLEAN;VAR str: Str255);
  72. PROCEDURE ExtToStr(paramPtr: XCmdPtr;num: Extended;VAR str: Str255);
  73. PROCEDURE LongToStr(paramPtr: XCmdPtr;posNum: LONGINT;VAR str: Str255);
  74. PROCEDURE NumToStr(paramPtr: XCmdPtr;num: LONGINT;VAR str: Str255);
  75. PROCEDURE NumToHex(paramPtr: XCmdPtr;num: LONGINT;nDigits: INTEGER;VAR str: Str255);
  76. FUNCTION StrToBool(paramPtr: XCmdPtr;str: Str255): BOOLEAN;
  77. FUNCTION StrToExt(paramPtr: XCmdPtr;str: Str255): Extended;
  78. FUNCTION StrToLong(paramPtr: XCmdPtr;str: Str255): LONGINT;
  79. FUNCTION StrToNum(paramPtr: XCmdPtr;str: Str255): LONGINT;
  80. FUNCTION PasToZero(paramPtr: XCmdPtr;str: Str255): Handle;
  81. PROCEDURE ZeroToPas(paramPtr: XCmdPtr;zeroStr: Ptr;VAR pasStr: Str255);
  82. FUNCTION EvalExpr(paramPtr: XCmdPtr;expr: Str255): Handle;
  83. PROCEDURE ReturnToPas(paramPtr: XCmdPtr;zeroStr: Ptr;VAR pasStr: Str255);
  84. PROCEDURE ScanToReturn(paramPtr: XCmdPtr;VAR scanPtr: Ptr);
  85. PROCEDURE ScanToZero(paramPtr: XCmdPtr;VAR scanPtr: Ptr);
  86. FUNCTION StringEqual(paramPtr: XCmdPtr;str1: Str255;str2: Str255): BOOLEAN;
  87. FUNCTION StringMatch(paramPtr: XCmdPtr;pattern: Str255;target: Ptr): Ptr;
  88. FUNCTION StringLength(paramPtr: XCmdPtr;strPtr: Ptr): LONGINT;
  89. PROCEDURE ZeroBytes(paramPtr: XCmdPtr;dstPtr: Ptr;longCount: LONGINT);
  90.  
  91. {$ENDC}    { UsingHyperXCmd }
  92.  
  93. {$IFC NOT UsingIncludes}
  94.     END.
  95. {$ENDC}
  96.  
  97.